<%
  game = Game.find(session[:player].game_id)
  game_setting = game.game_setting
  game_error = GameError.find(:first, :conditions=>["game_id=? AND year=?", game.id, game.current_year])
  player = Player.find(session[:player].id)
  ars = Account.find(:all, :conditions=>["game_id=? AND creditor_id=? AND due_year>=?", game.id, player.id, game.current_year], :order=>"due_year")
  aps = Account.find(:all, :conditions=>["game_id=? AND debtor_id=? AND due_year>=?", game.id, player.id, game.current_year], :order=>"due_year")
  last_pb = PlayerBalance.find(:first, :conditions=>["player_id=? AND year=?", player.id, game.current_year-1])
  pb = PlayerBalance.find(:first, :conditions=>["player_id=? AND year=?", player.id, game.current_year])
%>
<a href="/user/plan_game">วางแผนการผลิตและการเงิน (A)</a> &nbsp;&nbsp;&nbsp;&nbsp;
<a href="/user/rawmarket">ตลาดซื้อขาย <%=game_setting.inventory_a_name%></a>
<br/>
<%if game.a_run_flag=='N'%>
  <font color="green">คุณสามารถส่งคำสั่งได้</font>
<%else%>
  <font color="red">คุณไม่สามารถส่งคำสั่งได้</font>
<%end%>
<br/>
<center>
<span style="font-size:30px; color:red;"><u><%if !@word.empty?%><%if !@word.start_with?('Do')%><script>alert('<%=@word%>');</script><%end%><%end%><%=@word%></u></span>
</center>
<br/>
Game Session : <%=game.name%> &nbsp;&nbsp;&nbsp;&nbsp; Year: <%=game.current_year%> &nbsp;&nbsp;&nbsp;&nbsp; Round: -
&nbsp;&nbsp;&nbsp;&nbsp;
<%if game.a_run_flag=='N'%>
<img src="/images/stop_icon.jpg" width="50px" style="vertical-align:middle;"/>
<%else%>
<img src="/images/start_icon.gif" width="50px" style="vertical-align:middle;"/>
<%end%>
&nbsp;&nbsp;&nbsp;&nbsp;
<span style="font-size:30px;">Market Size:</span>
<span style="font-size:40px; color:blue;">? <%#=number_with_delimiter(game.market_size)%></span>
<br/>
<table style="border: 1px solid black;" width="100%">
<tr>
  <td width="33%">End Year Cash (บาท)</td>
  <td align="right"><%=number_with_delimiter(last_pb.cash)%></td>
</tr>
<tr bgcolor="#EEEEEE">
  <td>
    ชำระคืนเงินต้นและดอกเบี้ยเงินกู้ฉุกเฉิน (บาท)<br/>
  </td>
  <td align="right">
    <font color="red">
      1) เกมจะกู้อัตโนมัติ กรณีที่ปลายปีผู้เล่นไม่มีเงินสดเพียงพอต่อการชำระดอกเบี้ยหรือชำระคืนเงินกู้<br/>
      2) หน่วยย่อยที่สุด x1,000,000บาท อัตราดอกเบี้ย <%=game_setting.emergency_debt_rate * 100%> %<br/>
      3) บังคับให้ใช้คืนเงินกู้ฉุกเฉิน ณ ต้นปีถัดจากปีที่กู้<br/>
    </font>
    เงินต้น (<%=number_with_delimiter(pb.emergency_debt_return)%>)<br/>
    ดอกเบี้ย (<%=number_with_delimiter(pb.emergency_debt_interest)%>)
  </td>
</tr>
<tr>
  <td>Cash Balance (บาท)</td>
  <td align="right"><%=number_with_delimiter(pb.cash)%></td>
</tr>
<%if game_setting.allow_put_option_a=='Y'%>
<tr bgcolor="#EEEEEE">
  <td>Put Option (Cost | Unit)</td>
  <td align="center"><%=number_with_delimiter(pb.put_option_cost)%> | <%=number_with_delimiter(pb.put_option_unit)%></td>
</tr>
<tr>
  <td>
    ซื้อ Put Option<br/>
    <font color="blue">
      &nbsp;&nbsp;&nbsp;&nbsp;K = <%=game_error.put_exprice_a%><br/>
      &nbsp;&nbsp;&nbsp;&nbsp;P = <%=game_error.put_price_a%><font/><br/>
  </td>
  <td align="center">
    <form action="/running/buy_put_option_a" method="post">
      จำนวน (ล้านหน่วย) <input type="text" name="put_unit" value="<%=number_with_precision(pb.put_option_unit/1000000.0, :precision=>2)%>"/> <input type="submit" value="ซื้อ Option"/><br/>
      <font color="red">* หน่วยย่อยที่สุด x10,000 ชิ้น (รองรับทศนิยม 2 ตำแหน่ง)</font>
    </form>
  </td>
</tr>
<%end%>
<tr bgcolor="#EEEEEE">
  <td>Account Receivables</td>
  <td align="center">
    <table style="border: 1px solid gray; width:90%">
      <tr align="center">
        <th>ลูกหนี้</th>
        <th>จำนวน(บาท)</th>
        <th>ปีที่ซื้อขาย</th>
        <th>กำหนดชำระสิ้นปีที่</th>
      </tr>
      <%ars.each do |ar|%>
      <tr align="center">
        <%if ar.debtor_id==0%>
          <td>MARKET</td>
        <%else%>
          <td><%=Player.find(ar.debtor_id).name%></td>
        <%end%>
        <td align="right"><%=number_with_delimiter(ar.amount)%></td>
        <td><%=ar.trade_year%></td>
        <td><%=ar.due_year%></td>
      </tr>
      <%end%>
    </table>
  </td>
</tr>
<tr>
  <td><%=game_setting.inventory_a_name%> (Cost | Unit)<br/>
    <font color="blue">&nbsp;&nbsp;&nbsp;&nbsp;Loss Rate = <%=game_setting.inventory_loss_rate_a%><font/>
  </td>
  <td align="center">
    <%
      e_unitcost = "-"
      if last_pb.inventory_unit>0
        e_unitcost = "#{number_with_precision(last_pb.inventory_cost.to_f/last_pb.inventory_unit, :precision=>2)}"
      end
      c_unitcost = "-"
      if pb.inventory_unit>0
        c_unitcost = "#{number_with_precision(pb.inventory_cost.to_f/pb.inventory_unit, :precision=>2)}"
      end
    %>
    End Year <%=number_with_delimiter(last_pb.inventory_cost)%> | <%=number_with_delimiter(last_pb.inventory_unit)%> &nbsp;&nbsp;&nbsp;<font color="red">[UnitCost: <i><%=e_unitcost%></i>]</font><br/>
    Current &nbsp;&nbsp; <%=number_with_delimiter(pb.inventory_cost)%> | <%=number_with_delimiter(pb.inventory_unit)%> &nbsp;&nbsp;&nbsp;<font color="red">[UnitCost: <i><%=c_unitcost%></i>]</font>
  </td>
</tr>
<%
  factories = Factory.find(:all, :conditions=>["player_id=?", player.id], :order=>"year")
  warehouses = Warehouse.find(:all, :conditions=>["player_id=?", player.id], :order=>"year")
  debts = Debt.find(:all, :conditions=>["player_id=?", player.id], :order=>"year")
%>
<tr bgcolor="#EEEEEE">
  <td>
    <%=game_setting.factory_name_a%><br/>
    <font color="blue">
      &nbsp;&nbsp;&nbsp;&nbsp;Unit Price = <%=number_with_delimiter(game_setting.factory_price)%> บาท<br/>
      &nbsp;&nbsp;&nbsp;&nbsp;Life Time = <%=number_with_delimiter(game_setting.factory_life)%> ปี<br/>
      &nbsp;&nbsp;&nbsp;&nbsp;Capacity = <%=number_with_delimiter(game_setting.factory_capacity)%> unit
    </font>
  </td>
  <td align="center">
    <table style="border: 1px solid gray; width:90%">
      <tr align="center">
        <th>ID</th>
        <th>Value</th>
        <th>เริ่มใช้งานปีที่</th>
        <th>ใช้งานได้ถึงปีที่</th>
        <th></th>
      </tr>
      <%factories.each do |f|%>
      <tr align="center">
        <td>F<%=f.code%></td>
        <td align="right"><%=number_with_delimiter(f.remain_value)%></td>
        <td><%=f.start_year%></td>
        <td><%=f.end_year%></td>
        <td><a href="/running/sale_factory/<%=f.gencode%>">ขาย</a></td>
      </tr>
      <%end%>
    </table>
    <form action="/running/buy_factory" method="post"><input type="submit" value="ซื้อ <%=game_setting.factory_name_a%>"/></form>
  </td>
</tr>
<tr>
  <td>กำลังการผลิตรวม (Unit)</td>
  <td align="center"><%=number_with_delimiter(factories.size * game_setting.factory_capacity)%></td>
</tr>
<tr bgcolor="#EEEEEE">
  <td>
    <%=game_setting.warehouse_name_a%><br/>
    <font color="blue">
      &nbsp;&nbsp;&nbsp;&nbsp;Unit Price = <%=number_with_delimiter(game_setting.warehouse_price)%> บาท<br/>
      &nbsp;&nbsp;&nbsp;&nbsp;Life Time = <%=number_with_delimiter(game_setting.warehouse_life)%> ปี<br/>
      &nbsp;&nbsp;&nbsp;&nbsp;Capacity = <%=number_with_delimiter(game_setting.warehouse_capacity)%> unit
    </font>
  </td>
  <td align="center">
    <table style="border: 1px solid gray; width:90%">
      <tr align="center">
        <th>ID</th>
        <th>Value</th>
        <th>เริ่มใช้งานปีที่</th>
        <th>ใช้งานได้ถึงปีที่</th>
        <th></th>
      </tr>
      <%warehouses.each do |w|%>
      <tr align="center">
        <td>W<%=w.code%></td>
        <td align="right"><%=number_with_delimiter(w.remain_value)%></td>
        <td><%=w.start_year%></td>
        <td><%=w.end_year%></td>
        <td><a href="/running/sale_warehouse/<%=w.gencode%>">ขาย</a></td>
      </tr>
      <%end%>
    </table>
    <form action="/running/buy_warehouse" method="post"><input type="submit" value="ซื้อ <%=game_setting.warehouse_name_a%>"/></form>
  </td>
</tr>
<tr>
  <td>ความจุ<%=game_setting.warehouse_name_a%> (Unit)</td>
  <td align="center"><%=number_with_delimiter(warehouses.size * game_setting.warehouse_capacity)%></td>
</tr>
<tr bgcolor="#EEEEEE">
  <td><%=game_setting.rawmat_a_name%> (Cost | Unit)<br/>
    <font color="blue">&nbsp;&nbsp;&nbsp;&nbsp;Loss Rate = <%=game_setting.rawmat_loss_rate_a%><font/>
  </td>
  <td align="center">
    End Year <%=number_with_delimiter(last_pb.rawmat_cost)%> | <%=number_with_delimiter(last_pb.rawmat_unit)%><br/>
    Current &nbsp;&nbsp; <%=number_with_delimiter(pb.rawmat_cost)%> | <%=number_with_delimiter(pb.rawmat_unit)%><font color="blue"> - <%=number_with_delimiter(pb.onprocess_inventory_unit)%></font>
  </td>
</tr>
<tr>
  <td>
    ซื้อ <%=game_setting.rawmat_a_name%> จากผู้ขายรายใหญ่<br/>
    &nbsp;&nbsp;&nbsp;&nbsp;<font color="blue">Unit Cost = <%=game_setting.rawmat_unit_cost%> - level benefit บาท</font><br/>
    &nbsp;&nbsp;&nbsp;&nbsp;<font color="red">ซื้อแล้วไม่รับคืนสินค้า โปรดระวังในการสั่งซื้อ</font>
  </td>
  <td align="center">
    <form action="/running/a_rawmat_order" method="post">
      จำนวน (ล้านหน่วย) <input type="text" name="rawmat_order" value="0.00"/>
      <!--input type="submit" name="rawandproduce" value="ซื้อและผลิตทั้งหมด"/-->
      <input type="submit" name="rawonly" value="ซื้อวัตถุดิบ"/><br/>
      <font color="red">* รองรับทศนิยม 2 ตำแหน่ง</font>
    </form>
  </td>
</tr>
<tr bgcolor="#EEEEEE">
  <td>
    สั่งผลิตสินค้า<br/>
    &nbsp;&nbsp;&nbsp;&nbsp;<font color="red">ต้องมีวัตถุดิบพอเพียงจึงจะสั่งผลิตได้</font>
  </td>
  <td align="center">
    <form action="/running/place_order" method="post">
      จำนวน (ล้านหน่วย) <input type="text" name="produce_order" value="<%=number_with_precision(pb.onprocess_inventory_unit/1000000.0, :precision=>2)%>"/> <input type="submit" value="สั่งผลิต"/><br/>
      <font color="red">* รองรับทศนิยม 2 ตำแหน่ง</font>
    </form>
  </td>
</tr>
<tr>
  <td>
    Level (0-4)<br/>
    <font color="red">
    &nbsp;&nbsp;&nbsp;&nbsp;1) Upgrade ได้ปีละ 1 level เท่านั้น<br/>
    &nbsp;&nbsp;&nbsp;&nbsp;2) เมื่อมีการ Upgrade ยอดสะสมจะเริ่มนับ 0 สำหรับ level ถัดไป<br/>
    &nbsp;&nbsp;&nbsp;&nbsp;3) ในกรณีที่ใช้การ Marketing ในปีนั้นจะไม่มีการนับยอดสั่งผลิตเป็นยอดสะสม<br/>
    &nbsp;&nbsp;&nbsp;&nbsp;4) ในปีที่มีการ Upgrade ด้วยยอดผลิตสะสม ยอดผลิตที่เกินจากยอดสำหรับ Upgrade จะไม่ถูกนำไปสะสมสำหรับ level ต่อไป
    </font>
  </td>
  <td align="center">
    <table style="border: 1px solid gray; width:90%">
      <tr align="center">
        <th></th>
        <th>Level</th>
        <th>Cost Decreased</th>
        <th>จำนวนผลิต<br/>เพื่อ Upgrade(Unit)</th>
        <th>หรือ Marketing<br/>เพื่อ Upgrade(บาท)</th>
      </tr>
      <tr align="center">
        <td><%if player.level==0%><img src="/images/star_icon.png"/><%end%></td>
        <td>0</td>
        <td><%=game_setting.level0_price_added%></td>
        <td>-</td>
        <td>-</td>
      </tr>
      <tr align="center">
        <td><%if player.level==1%><img src="/images/star_icon.png"/><%end%></td>
        <td>1</td>
        <td><%=game_setting.level1_price_added%></td>
        <td><%=number_with_delimiter(game_setting.level1_required_produce)%></td>
        <td><%=number_with_delimiter(game_setting.level1_required_marketing)%></td>
      </tr>
      <tr align="center">
        <td><%if player.level==2%><img src="/images/star_icon.png"/><%end%></td>
        <td>2</td>
        <td><%=game_setting.level2_price_added%></td>
        <td><%=number_with_delimiter(game_setting.level2_required_produce)%></td>
        <td><%=number_with_delimiter(game_setting.level2_required_marketing)%></td>
      </tr>
      <tr align="center">
        <td><%if player.level==3%><img src="/images/star_icon.png"/><%end%></td>
        <td>3</td>
        <td><%=game_setting.level3_price_added%></td>
        <td><%=number_with_delimiter(game_setting.level3_required_produce)%></td>
        <td><%=number_with_delimiter(game_setting.level3_required_marketing)%></td>
      </tr>
      <tr align="center">
        <td><%if player.level==4%><img src="/images/star_icon.png"/><%end%></td>
        <td>4</td>
        <td><%=game_setting.level4_price_added%></td>
        <td><%=number_with_delimiter(game_setting.level4_required_produce)%></td>
        <td><%=number_with_delimiter(game_setting.level4_required_marketing)%></td>
      </tr>
    </table><br/>
    <table style="border: 1px solid gray; width:90%">
      <tr align="center">
        <th>ยอดผลิตเพื่อการ Upgrade</th>
        <th>ยอดผลิตสะสมใน level ปัจจุบัน</th>
        <th>Marketing</th>
      </tr>
      <tr align="center">
        <td>
          <%if player.level==0%>
            <%=number_with_delimiter(game_setting.level1_required_produce)%>
          <%elsif player.level==1%>
            <%=number_with_delimiter(game_setting.level2_required_produce)%>
          <%elsif player.level==2%>
            <%=number_with_delimiter(game_setting.level3_required_produce)%>
          <%elsif player.level==3%>
            <%=number_with_delimiter(game_setting.level4_required_produce)%>
          <%else%>
            -
          <%end%>
        </td>
        <td>
          <%=number_with_delimiter(player.com_produce)%><br/>
          <%if pb.marketing!=0%>
            <br/><font color="red">(ยอดนี้จะถูกเคลียร์เป็น 0 เมื่อเริ่มการซื้อขาย)</font>
          <%end%>
        </td>
        <td>
          <%if pb.marketing==0 && player.level!=4%>
            <form action="/running/marketing_upgrade" method="post"><input type="submit" value="Upgrade"/></form>
          <%else%>
            <form action="/running/marketing_downgrade" method="post"><input type="submit" value="Downgrade"/></form>
          <%end%>
        </td>
      </tr>
    </table>
  </td>
</tr>
</table>
<br/>
<table style="border: 1px solid black;" width="100%">
<tr bgcolor="#EEEEEE">
  <td>Account Payables</td>
  <td align="center">
    <table style="border: 1px solid gray; width:90%">
      <tr align="center">
        <th>เจ้าหนี้</th>
        <th>จำนวน(บาท)</th>
        <th>ปีที่ซื้อขาย</th>
        <th>กำหนดชำระสิ้นปีที่</th>
      </tr>
      <%aps.each do |ap|%>
      <tr align="center">
        <td><%=Player.find(ap.creditor_id).name%></td>
        <td align="right"><%=number_with_delimiter(ap.amount)%></td>
        <td><%=ap.trade_year%></td>
        <td><%=ap.due_year%></td>
      </tr>
      <%end%>
    </table>
  </td>
</tr>
<tr>
  <td width="33%">
    Long Term Debts<br/>
    &nbsp;&nbsp;&nbsp;&nbsp;<font color="blue">D/E Limit = <%=game_setting.de_limit%>, อายุ = <%=game_setting.longterm_debt_life%> ปี</font>
    <br/>
    <center>
    <table style="border: 1px solid gray;">
      <tr align="center">
        <th>Amount</th>
        <th>Rate(%)</th>
      </tr>
      <tr align="center">
        <td>&le;<%=number_with_delimiter(game_setting.level1_debt_limit)%></td>
        <td><%=game_setting.level1_debt_rate * 100%></td>
      </tr>
      <tr align="center">
        <td>><%=number_with_delimiter(game_setting.level1_debt_limit)%> - &le;<%=number_with_delimiter(game_setting.level2_debt_limit)%></td>
        <td><%=game_setting.level2_debt_rate * 100%></td>
      </tr>
      <tr align="center">
        <td>><%=number_with_delimiter(game_setting.level2_debt_limit)%> - &le;<%=number_with_delimiter(game_setting.level3_debt_limit)%></td>
        <td><%=game_setting.level3_debt_rate * 100%></td>
      </tr>
      <tr align="center">
        <td>&gt;<%=number_with_delimiter(game_setting.level3_debt_limit)%></td>
        <td><%=game_setting.level4_debt_rate * 100%></td>
      </tr>
    </table>
    </center>
  </td>
  <td align="center">
    <table style="border: 1px solid gray; width:90%">
      <tr align="center">
        <th>ID</th>
        <th>ยอดเงินกู้</th>
        <th>อัตราดอกเบี้ย</th>
        <th>ดอกเบี้ย</th>
        <th>กู้ ณ ต้นปีที่</th>
        <th>ชำระคืน<br/>ปลายปีที่</th>
        <th></th>
      </tr>
      <%debts.each do |d|%>
      <tr align="center">
        <td>D<%=d.code%></td>
        <td align="right"><%=number_with_delimiter(d.amount)%></td>
        <td><%=d.interest_rate * 100%> %</td>
        <td align="right"><%=number_with_delimiter(d.interest)%></td>
        <td><%=d.start_year%></td>
        <td><%=d.end_year%></td>
        <td><a href="/running/pay_debt/<%=d.gencode%>">ชำระคืน</a></td>
      </tr>
      <%end%>
    </table>
    <font color="red">* สามารถชำระคืนก่อนครบกำหนดเวลาได้ โดยถือว่าชำระต้นปี ไม่เสียดอกเบี้ยของปีนั้น</font></br>
    <form action="/running/make_debt" method="post">
    กู้เงินเพิ่มเติม (ล้านบาท) <input type="text" name="debt"/> <input type="submit" value="กู้เงิน"/>
    <br/>
    <font color="red">** หน่วยย่อยที่สุด x1,000,0000 (ไม่รองรับทศนิยม)</font>
    </form>
  </td>
</tr>
<tr bgcolor="#EEEEEE">
  <td>
    ส่วนของผู้ถือหุ้น<br/>
    <font color="blue">
    &nbsp;&nbsp;&nbsp;&nbsp;Et/Et-1 limit = <%=game_setting.ee_limit%><br/>
    &nbsp;&nbsp;&nbsp;&nbsp;Minimum Common Stock(หุ้น) = <%=number_with_delimiter(game_setting.min_common_stock_unit)%>
    </font>
  </td>
  <td align="center">
    รวม <%=number_with_delimiter(pb.equity_per_share * pb.common_stock_unit)%> บาท &nbsp;&nbsp;&nbsp;&nbsp; จำนวน <%=number_with_delimiter(pb.common_stock_unit)%> หุ้น<br/>
    <form action="/running/issue_common_stock" method="post">
    ออกหุ้นเพิ่มทุน(ซื้อหุ้นคืน) (ล้านหุ้น) <input type="text" name="common"/> <input type="submit" value="ดำเนินการ"/><br/>
    <font color="red">** ใส่เครื่องหมายลบถ้าเป็นการซื้อหุ้นคืน</font>
    <br/>
    <font color="red">* ไม่รองรับทศนิยม</font>
    </form>
  </td>
</tr>
<tr>
  <td>Equity Per Share</td>
  <td align="center"><%=number_with_precision(pb.equity_per_share, :precision=>2)%></td>
</tr>
</table>